home *** CD-ROM | disk | FTP | other *** search
/ Aminet 24 / Aminet 24 (1998)(GTI - Schatztruhe)[!][Apr 1998].iso / Aminet / text / hyper / hsc.lha / hsc / grafflwerk / StripNastyChars.rexx < prev   
OS/2 REXX Batch file  |  1997-10-16  |  604b  |  23 lines
  1. /*
  2.  * StripNastyChars.rexx
  3.  *
  4.  * strip all characters except "a".."z", "0".."9" and "A".."Z" from
  5.  * a text passed as argument and output the result to stdout.
  6.  *
  7.  * $VER: StripNastyChars 1.0 (12.10.97)
  8.  */
  9.  
  10. /* get input from command line */
  11. PARSE ARG text
  12.  
  13. /* specify nasty chars */
  14. nastyChars = XRANGE(d2c(0), d2c(47)) || XRANGE(d2c(58), d2c(64)) || XRANGE(d2c(91), d2c(96)) || XRANGE(d2c(123), d2c(255))
  15.  
  16. /* now remove them from input data */
  17. stripped = COMPRESS(text, nastyChars)
  18.  
  19. /* and display them at standard output
  20.  * (which will be redirected an read by hsc) */
  21. call WriteCH(stdout, stripped)
  22.  
  23.